home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8908.d64 / replace move (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  868b  |  38 lines

  1. 10 IFL=.THENL=1:LOAD"REPL C000",8,1
  2. 20 SYS49152
  3. 30 PRINT"[147]ANTIREPLACE WRITTEN BY WERNER HUNGER '89"
  4. 40 :
  5. 50 PRINT"WO SOLL DIE NEUE ROUTINE LIEGEN"
  6. 60 INPUT"(HEX-ADR)";H$:PRINT
  7. 70 IFLEFT$(H$,1)="$"THENH$=RIGHT$(H$,LEN(H$)-1)
  8. 80 IFLEN(H$)<>4THENPRINT"4 STELLEN !":FORX=.TO500:NEXT:RUN30
  9. 90 A$=H$:GOSUB300:AD=A:GOSUB350
  10. 100 F$="@:REPL "+H$+"/"+STR$(AD)+",P,W":PRINT:PRINT
  11. 110 OPEN1,8,2,F$:PRINT#1,CHR$(L)CHR$(H);
  12. 120 A=AD-49152:GOSUB350:FL=L:FH=H
  13. 130 READW
  14. 140 FORX=0TO176
  15. 150 A=PEEK(49152+X)
  16. 160 IFX<>WTHEN260
  17. 170 READW
  18. 180 IFHLTHEN220
  19. 190 A=A+FL:IFA>255THENA=A-256:UE=1
  20. 200 IFA<.THENA=A+256:UE=-1
  21. 210 GOTO250
  22. 220 A=A+FH+UE:UE=.
  23. 230 IFA>255THENA=A-256
  24. 240 IFA<.THENA=A+256
  25. 250 HL=NOT HL
  26. 260 PRINT#1,CHR$(A);
  27. 270 PRINT176-X"[157] [145]":NEXT
  28. 280 CLOSE1:END
  29. 290 :
  30. 300 A1$=LEFT$(A$,2):GOSUB310:A=E*256:A1$=RIGHT$(A$,2):GOSUB310:A=A+E:RETURN
  31. 310 A2$=LEFT$(A1$,1):GOSUB330:E=A1*16:A2$=RIGHT$(A1$,1):GOSUB330:E=E+A1
  32. 320 RETURN
  33. 330 A1=ASC(A2$)-48:IFA1>9THENA1=A1-7
  34. 340 RETURN
  35. 350 H=INT(A/256):L=A-H*256:RETURN
  36. 360 :
  37. 370 DATA1,3,11,13,27,28,49,51,68,69,76,77,88,89,105,106,118,119,151,152,0
  38.